home *** CD-ROM | disk | FTP | other *** search
/ PC User 2002 March / Disc 1 / PCU030201.iso / software / utils / files / activesms.exe / data1.cab / Example_Files / Samples / VBS / VBSSample.vbs
Encoding:
Text File  |  2001-12-19  |  507 b   |  17 lines
  1. 'This sample SMSReceive script simply returns the message to the sender
  2.  
  3. set Args = Wscript.Arguments
  4.  
  5. 'Get details of received message
  6. PhoneNumber = Args(0)
  7. MessageText = Args(1)
  8. Handset = Args(2)
  9.  
  10. 'Create ActiveSMS COM Object
  11. Set ActiveSMS = WScript.CreateObject("Intellisoftware.ActiveSMS")
  12.  
  13. 'TODO : Add your code here for Info-on-demained service (e.g. Query database etc)
  14.  
  15. 'Send message back to sender
  16. ActiveSMS.ActiveHandset = Handset
  17. ActiveSMS.SendMessage  PhoneNumber, MessageText, 0